﻿Public Class Harvest
    Inherits PictureBox
    Dim xImg As Image
    Dim xValue As Integer
    Public Property Value As Integer
        Get
            Return xValue
        End Get
        Set(value As Integer)
            xValue = value
        End Set
    End Property
    Public Sub ShowHarvest(ByVal Param As String)
        'Draw harvest object
        Me.Cursor = Cursors.Hand
        If Param = "Egg" Then
            Me.Image = My.Resources.egg
            Me.Left = 0
            Me.Top = 47
            Me.Width = 20
            Me.Height = 26
        ElseIf Param = "EggGold" Then
            Me.Image = My.Resources.ultiegg
            Me.Left = 0
            Me.Top = 47
            Me.Width = 20
            Me.Height = 26
        ElseIf Param = "Milk" Then
            Me.Image = My.Resources.milk
            Me.Left = 133
            Me.Top = 25
            Me.Width = 25
            Me.Height = 42
        ElseIf Param = "MilkGold" Then
            Me.Image = My.Resources.ultimilk
            Me.Left = 133
            Me.Top = 25
            Me.Width = 25
            Me.Height = 42
        Else
            MsgBox("Error !")
        End If
    End Sub
End Class
